Top 10k strings from Micro Prolog (1983)(Sinclair Research).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   5 (("?ERROR?" 2 (X|Y))
   5   (Parse-of-ConjC (:) x Z)
   4   (told X))
   4   (P "error&")
   4   (KILL X)
   4   (CL ((data-rel X)))
   3 ((cedit X)
   3 ((cedit X Y)
   3 ((answer X Y)
   3 ((P-code X " "))
   3 (("?ERROR?" X (Y|Z))
   3   (response x)
   3   (gedit X Y /*))
   3   (cedit X Y))
   3   (Parse-of-ConjC (?) Y (?|X))
   3   (PP No (more) answers))
   3   (P Evaluation error X : x)
   3   (P "error&(? for info)")
   3   (NOT VAR X)
   3   (Expression-Parse X Y Z)
   2 ((spying X Y)
   2 ((showex X Y))
   2 ((respond tell (X|Y))
   2 ((respond q X)
   2 ((respond c X)
   2 ((respond X (Y|Z))
   2 ((respond / X)
   2 ((match (X|Y))
   2 ((list all)
   2 ((less ~ X))
   2 ((kill all)
   2 ((is-trace X)
   2 ((gedit X Y Z)
   2 ((function X)
   2 ((edit X Y)
   2 ((delete X)
   2 ((delete X Y)
   2 ((accept X)
   2 ((Whichex X Y)
   2 ((Rev-body (X|Y) (Z|x) Z)
   2 ((Rev-body () () X))
   2 ((P-code 5 "File error"))
   2 ((P-code 22 "Illegal colour"))
   2 ((P-code 13 "Line or point off screen"))
   2 ((P-code 12 "Illegal use of modules"))
   2 ((P-code 11 "Break !"))
   2 ((P-code 1 "Arithmetic underflow"))
   2 ((P-code 0 "Arithmetic overflow"))
   2 ((E-code 6 "CLOSE last used file first"))
   2 ((E-code 15 "Break ! during tape read or write"))
   2 ((COPYWRITE LPA LTD 1983 (V 6 -15)))
   2 ((COPYRIGHT 1983 LPA LTD (V 6 -7)))
   2 ((COPYRIGHT 1983 LPA LTD (V 5 -29)))
   2 ((COPYRIGHT 1983 LPA LTD (V 29 -1))
   2 ((Acceptin X)
   2 ((APPEND (X|Y) Z (X|x))
   2 (("?REV-P?" (X|Y) Z)
   2 (("?LIST-PRED?" X))
   2 (("?LIST-PRED?" X)
   2 (("?ERROR?" X Y)
   2 (("?ERROR?" 4 (ADDCL ((X|Y)|Z)|x))
   2 (("?EQNTEST?" X)
   2 (("?DECLARE?" ((X|Y)|Z))
   2 (("?DECL?" X Y)
   2   (upgoal Z)
   2   (showex Y x))
   2   (response Z)
   2   (respond x (Y|Z)))
   2   (respond Z (X|Y)))
   2   (match Y))
   2   (edit X Y))
   2   (delete X Y))
   2   (answer X Y))
   2   (add X Y))
   2   (add 32767 X))
   2   (SUM x 1 X)
   2   (SUM 1 X2 X1)
   2   (Rev-body Y y "and@M    "))
   2   (Rev-body Y x "if@M    "))
   2   (Parse-of-SS X Z x)
   2   (Parse-of-S Z1 Y1)
   2   (Parse-of-S Z Y)
   2   (Parse-of-S Z (X|Y))
   2   (Parse-of-S ((X|x)|y) z)
   2   (Parse-of-Cond X (Z|x) y)
   2   (PP trying : X Y)
   2   (PP to quit enter : q)
   2   (PP or enter : tell (see manual))
   2   (PP Z matches sentence y)
   2   (PP No definition for X)
   2   (PP Module X deleted))
   2   (PP Definition for X deleted))
   2   (P-code X x)
   2   (P-code X Z)
   2   (P Entire program "?(yes/no)")
   2   (P " ? ")
   2   (OR ((PP Z : X Y)) ((PP Z backtracking on X Y) (reset Z) FAIL))
   2   (OR ((DELCL Z)) ((PP No sentence (X|Y)))))
   2   (OR ((CL ((dict X)))) ((ON X (dict func))))
   2   (OPMOD X)
   2   (NOT SYS (x1|y1))
   2   (NOT LST X)
   2   (NOT EQ x ((spypoints on) (/)|z))
   2   (LESS 0 X)
   2   (KILL ALL)
   2   (INT X1)
   2   (IF (EQ x1 X) () ((PP relation changed to x1) ("?DECLARE?" Z1))))
   2   (FORALL ((ON Z X)) ((draw Z)))
   2   (EQ X yes)
   2   (ENTER X x Z))
   2   (DELCL ((dict X)))
   2   (CL ((dict X)))
   2   (CL ((X|x)|y) Y Y)
   2   (CL ((X|Y)|x) 1 y)
   2   (CL ((X|Y)|Z))
   2   (Acceptin X))
   2   (APPEND x ((PP Z solved : X Y)) X1)
   2   (ADDCL Z1 X2)
   2   (ADDCL Z x)
   2   (ABORT))
   2   ("FIND:" X Y Z show)
   2   ("?REV-P?" ((X|Y)|Z) x)
   2   ("?LIST-PRED?" X))
   2   ("?EQNTEST?" Z)
   2   ("?DECLARE?" Z))
   2   ("?DECL?" X func))
   2   ("?DECL?" X dict))
   2   ("?DECL?" X dict)
   2   ("?CEQ?" X Y not)
   1 told-mod(is-told)(yes no just ans)
   1 spytrace-mod(spy unspy spying)(spypoints on off)
   1 spypoints)
   1 simtrace-mod(is-trace all-trace)("y" n s f Parse-of-ConjC APPEND Parse-of-SS : "FIND:" Parse-of-Cond dict q #)
   1 simshow-mod(show draw)("FIND:" : picture ON Parse-of-ConjC)
   1 se-of-S Parse-of-SS Parse-of-Cond CON ON APPEND which : Expression-Parse dict func end yes all =)
   1 rmess-mod("?ERROR?")(data-rel)
   1 ram deleted))
   1 r / "<any command>" (eg / add "<clause>" ,/ LOAD file))
   1 query-mod("FIND:" APPEND CONS ON Parse-of-S Parse-of-ConjC Parse-of-SS Parse-of-Cond Parse-of-CC # @ + "-" ~ * % defined true-of reserved save load not forall isall = all is one which)(Expression-Parse end dict func & and if then either or :)
   1 program-mod(add delete list kill edit cedit function accept "?REV-P?")(Parse-of-S Parse-of-SS Parse-of-Cond CON ON APPEND which : Expression-Parse dict func end yes all =)
   1 program-mod(add delete list kill edit cedit function accept "?REV-P?")(Par
   1 picture   
   1 pcode     x7
   1 l colour"))
   1 gedit X Y DELCL))
   1 exptran-mod(: Expression-Parse)(@ # + "-" ~ * % APPEND CONS func & and yes rel-form)
   1 ete (X|Y))
   1 errtrap-mod("?ERROR?")(q e s f c is-told tell data-rel)
   1 ect (Parse-of-ConjC (?) y (?|z)) (PP trying to solve its negation :|z)) (IF (?? (1|X) y ()) ((PP negation of X solved so ..) FAIL) ((PP negation of X failed so ..)))) ((FORALL Y Z))))
   1 deftrap-mod("?ERROR?")(q c is-told add if tell data-rel)
   1 ast used file first"))
   1 arse-of-ConjC (?) x (?|z)) (PP finding all Z such that :|z)) (isall X Y Z|x)) ((ISALL Y Z|x))))
   1 aNo Space left
   1 Y for X))))
   1 TOLD    03
   1 TOLD    02
   1 TOLD    01
   1 TIMES Z Y X))
   1 TER X s Y)
   1 SPYTRACE04
   1 SPYTRACE03
   1 SPYTRACE02
   1 SPYTRACE01
   1 SIMTRACE13
   1 SIMTRACE12
   1 SIMTRACE11
   1 SIMTRACE10
   1 SIMTRACE09
   1 SIMTRACE08
   1 SIMTRACE07
   1 SIMTRACE06
   1 SIMTRACE05
   1 SIMTRACE04
   1 SIMTRACE03
   1 SIMTRACE02
   1 SIMTRACE01
   1 SIMSHOW 02
   1 SIMSHOW 01
   1 SIMPLE  26
   1 SIMPLE  25
   1 SIMPLE  24
   1 SIMPLE  23
   1 SIMPLE  22
   1 SIMPLE  21
   1 SIMPLE  20
   1 SIMPLE  19
   1 SIMPLE  18
   1 SIMPLE  17
   1 SIMPLE  16
   1 SIMPLE  15
   1 SIMPLE  14
   1 SIMPLE  13
   1 SIMPLE  12
   1 SIMPLE  11
   1 SIMPLE  10
   1 SIMPLE  09
   1 SIMPLE  08
   1 SIMPLE  07
   1 SIMPLE  06
   1 SIMPLE  05
   1 SIMPLE  04
   1 SIMPLE  03
   1 SIMPLE  02
   1 SIMPLE  01
   1 RROR?" 2 (X|Y))
   1 READ ERROR
   1 R ((PP X either branch) (?? (1|X) Y y)|y) ((PP X or branch) (?? (1|X) Z y)))) ((OR Y Z))))
   1 R ((DELCL ((func X)))) ())
   1 PROLOG    
   1 PROGRAM 08
   1 PROGRAM 07
   1 PROGRAM 06
   1 PROGRAM 05
   1 PROGRAM 04
   1 PROGRAM 03
   1 PROGRAM 02
   1 PROGRAM 01
   1 PEND Y Z x))
   1 L ((count Z)))
   1 GHT 1983 LPA LTD (V 13 -4)))
   1 FILL (Y z) X1)
   1 EXPTRAN 06
   1 EXPTRAN 05
   1 EXPTRAN 04
   1 EXPTRAN 03
   1 EXPTRAN 02
   1 EXPTRAN 01
   1 ERRTRAP 06
   1 ERRTRAP 05
   1 ERRTRAP 04
   1 ERRTRAP 03
   1 ERRTRAP 02
   1 ERRTRAP 01
   1 EQ x "y") ((PP evaluating expressions using relations ..) (?? (1|X) Z y) / (Parse-of-SS Y z ()) (PP evaluating X :|z) (IF (SYS Y) (Y) ((ENTER X "y" Y)))) ((# Y Z))))
   1 Dictionary full
   1 DEFTRAP 06
   1 DEFTRAP 05
   1 DEFTRAP 04
   1 DEFTRAP 03
   1 DEFTRAP 02
   1 DEFTRAP 01
   1 Created with Ramsoft MakeTZX
   1 ?? (1) Y ()) ((PP Yes)) ((PP No))))
   1 11 "Break !"))
   1 .)))) ((NOT ? Y))))
   1 ((whichex X Y)
   1 ((whichex X 
   1 ((which X)
   1 ((upgoal X)
   1 ((update X Y)
   1 ((unspy X)
   1 ((true-of X Y)
   1 ((test X Y)
   1 ((test X (Y|Z))
   1 ((test X (OR Y Z))
   1 ((test X (NOT|Y))
   1 ((test X (NOT ? Y))
   1 ((test X (ISALL Y Z|x))
   1 ((test X (FORALL Y Z))
   1 ((test X (# Y Z))
   1 ((sysop ~))
   1 ((sysop /))
   1 ((sysop +))
   1 ((sysop *))
   1 ((sysop %))
   1 ((sysop "-"))
   1 ((symbval ()))
   1 ((symbval ((X|Y)|Z))
   1 ((spying on)
   1 ((spying off)
   1 ((showex X Y)
   1 ((response X)
   1 ((respond s X
   1 ((respond f X)
   1 ((respond e X)
   1 ((reset X)
   1 ((reserved (dict func data-rel|X))
   1 ((name ~ "-")
   1 ((name X X))
   1 ((name / %)
   1 ((match ())
   1 ((match ((X|Y)|Z))
   1 ((less + X))
   1 ((less "-" X))
   1 ((isall X Y Z|x)
   1 ((is-told|X)
   1 ((is-told X)
   1 ((is-body X (Y|Z) (x|y) z X1)
   1 ((is-body X () (Y|Z) (Y) (Y|Z))
   1 ((is-body X () () Y ())
   1 ((is-body (X) () (X) Y ())
   1 ((init X Y)
   1 ((goal 0))
   1 ((fn1 APPEND))
   1 ((find X (Y|Z) (Y|x) y)
   1 ((find X (Y|Z) () (Y|Z))
   1 ((find X () () ())
   1 ((effect|X))
   1 ((effect|X)
   1 ((draw (X|Y))
   1 ((delete (X|Y))
   1 ((defined X)
   1 ((count 1))
   1 ((answer X yes)
   1 ((answer X no)
   1 ((answer X just)
   1 ((answer X ans)
   1 ((all-trace X)
   1 ((add X Y)
   1 ((Zip X X Y Y)
   1 ((Zip (X|Y) (Z|x) y z)
   1 ((Zip () () X X)
   1 ((X|Y))) (Acceptin X)) ((OR ((EQ Y end)) ((P " " Y not a list) (PP) (Acceptin X))))))
   1 ((X-parse X Y Z x)
   1 ((X-parse X X Y Y)
   1 ((X-parse (X|Y) Z x y)
   1 ((X-parse (X Y Z) x y z)
   1 ((X-parse (X Y Z) x ((CONS y z x)|X1) Y1)
   1 ((X-parse (X Y Z x|y) z
   1 ((Parse-of-SS X Y Z)
   1 ((Parse-of-SS X Y Y)
   1 ((Parse-of-SS (X|Y) (X Y|Z) Z)
   1 ((Parse-of-SS (X|Y) (X Y
   1 ((Parse-of-SS (X) (X|Y) Y)
   1 ((Parse-of-SS (X Y) (Y X|Z) Z)
   1 ((Parse-of-SS (X Y Z) (Y X Z|x) x)
   1 ((Parse-of-S (X|Y) Z)
   1 ((Parse-of-ConjC X Y Z)
   1 ((Parse-of-Cond X Y Z)
   1 ((Parse-of-Cond
   1 ((Parse-of-CC (OR X Y) ((Z|x)|y) y)
   1 ((Parse-of-CC (NOT|X) (Y Z|x) y)
   1 ((Parse-of-CC (NOT ? X) (Y (Z|x)|y) y)
   1 ((Parse-of-CC (ISALL X Y|Z) (X x y|z) z)
   1 ((Parse-of-CC (FORALL X Y) ((Z|x)|y) y)
   1 ((Parse-of-CC (# (X|Y) Z) (x y z|X1) X1)
   1 ((Parse-of-CC (# (X|Y) Z) (X x y|z) z)
   1 ((Parse-of-CC (# (EQ X Y) Z) (x y z|X1) X
   1 ((Parse-of-CC (!|X) (Y Z|x) y)
   1 ((P-code 9 "Write error"))
   1 ((P-code 4 "Error in adding clause"))
   1 ((P-code 3 "Too many variables"))
   1 ((P-code 3 "Too many variables or invalid form"))
   1 ((P-code 2 "No clauses for relation"))
   1 ((Oneex|X)
   1 ((Oneex X Y)
   1 ((ON X (Y|Z))
   1 ((ON X (X|Y)))
   1 ((Mem1 X Y)
   1 ((Expression-Parse X Y Z)
   1 ((Expression-Parse X X Y)
   1 ((ENTER X q Y)
   1 ((ENTER X n Y)
   1 ((ENTER X f Y)
   1 ((ENTER X Y Z)
   1 ((ENTER X "y" (Y|Z))
   1 ((E-code X " "))
   1 ((E-code 6 "CLOSE l
   1 ((E-code 5 "File error"))
   1 ((E-code 3 "Too many variables"))
   1 ((E-code 22 "Invalid colour"))
   1 ((E-code 2 "No definition for relation"))
   1 ((E-code 15 "Break ! during tape read or wr
   1 ((E-code 13 "Line or point off screen"))
   1 ((E-code 12 "Illegal use of modules"))
   1 ((E-code 1 "Arithmetic underflow"))
   1 ((E-code 0 "Arithmetic overflow"))
   1 ((COPYRIGHT 1983 LPA LTD (V 6 -15)))
   1 ((COPYRIGHT 1983 LPA LTD (V 6 
   1 ((CONS X Y (X|Y)))
   1 ((APPEND () X X))
   1 ((APPEND () X X)
   1 ((?? X (Y|Z) x)
   1 ((?? X () ()))
   1 ((?? X ((? Y)) ())
   1 ((?? X ((/)|Y) (/ FAIL))
   1 ((?? (X|Y) (Z|x) y)
   1 ((+ X Y Z)
   1 ((* X Y Z)
   1 ((% X Y Z)
   1 (("FIND:" X Y Z x)
   1 (("FIND:" (X Y|Z) X (:|Z) isall)
   1 (("?CEQ?" X Y Z)
   1 (("-" X Y Z)
   1 %BLOCK OK  
   1 "  match succeeds: ") (PP|X1)) ((P "  match fails") (PP) FAIL))
   1  trying : Y Z)
   1  Y ignored "-" enter : yes / no / ans .. / just ..)
   1  LPA Ltd 1983 "
   1  (Zip Y z x ((X|X1)|y))
   1  (ADDCL ((spypoints off))))
   1  ((Y X))))))
   1  ("?CEQ?" X Z forall)
   1   (whichex Y x))
   1   (which X))
   1   (test (X|Y) Z)
   1   (sysop X))
   1   (symbval Z))
   1   (symbval Y)
   1   (response y)
   1   (respond x Y))
   1   (respond x X))
   1   (respond x
   1   (picture X)
   1   (name Y Z1)
   1   (match Z))
   1   (match X))
   1   (match (X|Y))
   1   (is-body X Y Z () ()))
   1   (is-body (then) Y z () X1)
   1   (is-body (or) Y z () X1)
   1   (is-body (if) Y y () z))
   1   (is-body (forall) X (Z|x) (then) z)
   1   (is-body (either) X (Z|x) (or) z)
   1   (is-body (and &) Z Z1 z X1))
   1   (is-body (?) X (? Z|x) () z)
   1   (is-body (:) Z X1 () Y1)
   1   (init y ())
   1   (gedit X Y DELCL))
   1   (gedit X 
   1   (fn1 X))
   1   (find X Z x y))
   1   (find (:) X Y Z)
   1   (effect (Parse-of-Cond Z z ()) (P (X|Y) 
   1   (effect (NOT EQ y ()) (Parse-of-ConjC (?) y (?|x1)) (PP new query :|x1))
   1   (defined Expression-Parse))
   1   (add (X Z if (X Z) is-told))
   1   (Zip Y x X1 z))
   1   (Zip X Y Z x))
   1   (Zip (Y Z) (y z) X1 Y1))
   1   (X-parse Z x1 Y1 ((Z1 X1 x1 x)|z))
   1   (X-parse X Z y X1)
   1   (X-parse X Y Z ())
   1   (X-parse X X1 y Y1)
   1   (Whichex Y x))
   1   (TIMES X Y Z))
   1   (SUM Y Z X))
   1   (SUM X Y Z))
   1   (SUM X 1 y1)
   1   (SUM X 1 Z)
   1   (SUM X 1 Y)
   1   (SAVE X))
   1   (RFILL (ready) Y)
   1   (RFILL (Y z) X1)
   1   (RFILL (X) Y)
   1   (Parse-of-SS X Z y)
   1   (Parse-of-SS X Y Z))
   1   (Parse-of-SS (Y|x) Y1 ())
   1   (Parse-of-SS (Y|Z) X1 ())
   1   (Parse-of-SS (X|Y) x ())
   1   (Parse-of-ConjC (?) Z (?|z)))
   1   (Parse-of-Cond Y y Z1)
   1   (Parse-of-Cond Y y ())
   1   (Parse-of-Cond X x y)
   1   (Parse-of-Co
   1   (Parse-of-CC X Y Z)
   1   (PP trying Y)
   1   (PP trying : Y Z)
   1   (PP to succeed call enter : s)
   1   (PP to resume enter : c)
   1   (PP to line edit call and resume enter : e)
   1   (PP to fail call enter : f)
   1   (PP to continue enter : c)
   1   (PP redundant & or and)
   1   (PP X failing :|y)
   1   (PP X assumed not to be function name)
   1   (PP Start tape for recording)
   1   (PP Hit ENTER key when)
   1   (PP Entire program deleted))
   1   (PP Entire prog
   1   (PP Cannot add senten
   1   (PP (X|Y) solved :|z)
   1   (P or enter : / "<any command>" (eg / add (sentence) , / load file))
   1   (P or ente
   1   (P Y ignored "-" enter : yes / no / ans .. / just ..)
   1   (P Error X Z)
   1   (P ENTER "y" n s (to succeed) f (to fail) or q (to quit))
   1   (P "more?(y/n)")
   1   (P "Syntax error: ")
   1   (P "Cannot add sentences to" X)
   1   (P " trace?(y/n) ")
   1   (P " trace?")
   1   (Oneex Y x))
   1   (OR () ((PP retrying X) FAIL)))
   1   (OR () ((PP retrying X) FAIL))
   1   (OR () ((NOT SYS Y) (PP retrying X) FAIL)))
   1   (OR ((VAR Z)) ((NOT VAR Y)))
   1   (OR ((VAR Z) /) ((NOT ON Z (either forall))))
   1   (OR ((VAR X) / (NOT VAR Y) (EQ Y Z)) ((EQ Y Z))))
   1   (OR ((LST Y) (ADDCL ((X|Y))) (Acceptin X)) ((OR ((EQ Y end)) ((P " " Y not a list) (PP) (Acceptin X))))))
   1   (OR ((LST Y) (ADDCL 
   1   (OR ((EQ Z (:|y)) /) ((P "Syntax error: ") (PP missing colon in) (PP X) ABORT)))
   1   (OR ((EQ X1 #) / (EQ Y1 (Z1 x1)) (Parse-of-Cond Z1 z ())) ((Parse-of-Cond Z z ())))
   1   (OR ((DELCL ((func X)))) ())
   1   (OR ((CL ((Y X))) /) ((ADDCL ((Y X))))))
   1   (OR ((CL ((Y X))) /) ((ADDCL
   1   (ON x X)
   1   (ON X Z))
   1   (ON X Y)
   1   (NOT EQ Y ans)
   1   (NOT CL ((rel-form)))
   1   (Mem1 Y X)
   1   (LOAD X))
   1   (KILL spypoints)
   1   (IF (sysop X) ((EQ x (z X1)) (EQ y (z X X1))) ((EQ y (X|x))))
   1   (IF (less Y x) ((X-parse (X Y (Z x|y)) z X1 Y1)) ((X-parse ((X Y Z) x|y) z X1 Y1))))
   1   (IF (VAR Z) () ((find (if) Z x y)))
   1   (IF (VAR Z) ((find (and &|z) y Y1 Z1)) ())
   1   (IF (VAR X) ((find x Y y Z) (P "Syntax error: ") (PP|y) (PP not a valid sentence form) ABORT) (FAIL)))
   1   (IF (EQ y "y") ((effect (P
   1   (IF (EQ x "y") ((O
   1   (IF (EQ x "y") ((APPEND Y ((NOT ? Z)) y) (eff
   1   (IF (EQ Z x) ((P 
   1   (IF (EQ Z ()) ((P|X) (PP) (PP backtracking ..) FAIL) ((PP No (more) answers))))
   1   (IF (EQ Z "y") (FAIL) ()))
   1   (IF (EQ Z "y") ((PP X unnegated) (IF (?? (1|X) Y ()) ((PP unnegated X solved so ..) FAIL) ((PP unnegated X failed so .
   1   (IF (EQ Z "y") ((PP X unnegated) (IF (?? (1|X) (Y) ()) ((PP unnegated X solved so ..) FAIL) ((PP unnegated X failed so ..)))) ((NOT|Y))))
   1   (IF (DELCL X Y) () ((PP No sentence Y for X))))
   1   (IF (DELCL X Y) () ((PP No sentence 
   1   (IF (? Y) ((PP YES)) ((PP NO))))
   1   (FORALL ((ON Z (X|Y))) ((draw Z))))
   1   (FORALL ((CL ((dict X)))) (("?LIST-PRED?" X))))
   1   (FORALL ((CL ((dict X)))) (("?LIST-PRED?" X)
   1   (FORALL ((?? (1|X) x z)|z) ((PP found answer Z to X) (update y Z)))
   1   (Expression-Parse y Y Z)
   1   (Expression-Parse (x z) (X Y) Z)
   1   (EQ Z1 ((x1|y1)|z1))
   1   (EQ Z1 ((x1|y1)|
   1   (EQ Z (X1|Y1))
   1   (EQ Y :)
   1   (EQ X CONS)
   1   (ENTER X x (Y|Z)))
   1   (E-code X x)
   1   (DICT Y Z X|x))
   1   (DELCL ((value y Y))))
   1   (DELCL ((value X Z)))
   1   (DELCL ((goal Y)))
   1   (DELCL ((goal X)))
   1   (DELCL ((count X)))
   1   (DELCL ((X|Y) (spypoints on) (/) (spying X Y))))
   1   (CL ((func X))))
   1   (CL ((dict Y)))
   1   (CL ((Y|x)|y) 1 z)
   1   (CL ((X|Y)|Z)))
   1   (APPEND z (Z) X1))
   1   (APPEND x (y) 
   1   (APPEND Y Z x))
   1   (APPEND (matching X :|X1) (with head of z :|Y1) Z1)
   1   (ADDCL ((value X Y))))
   1   (ADDCL ((value X (Y|Z)))))
   1   (ADDCL ((spypoints on))))
   1   (ADDCL ((spypoints off))))
   1   (ADDCL ((goal Y))))
   1   (ADDCL ((goal X))))
   1   (ADDCL ((X|Z) (is-told (X Z))))
   1   (ADDCL ((X|Y) (spypoints on) (/) (spying X Y)) 0))
   1   (?? X Y Z))
   1   (?? (y1|Y) x y))
   1   (?? (1|X) y y1)|y1)
   1   (?? (1) Y Z)
   1   ("FIND:" y Y X1 isall)
   1   ("FIND:" X Y Z which-trace)
   1   ("FIND:" X Y Z which)
   1   ("FIND:" X Y Z one)
   1   ("?CEQ?" Z y =)
   1   ("?CEQ?" Z y #)
   1   ("?CEQ?" Z x isall)
   1   ("?CEQ?" Z x #)
   1   ("?CEQ?" X Z either)
   1   ("?CEQ?" X Y !)
   1